BASE Gráfico

BASE Gráfico - Índice de Ayuda para Asesores


Funciones Globales:

Volver arriba

Funciones de usuario definidas de forma global para mejorar la codificación en los programas.

FN%acum: Acumula un campo númerico de un archivo

FN%acum(LOCAL archivo$, LOCAL campo$, LOCAL clave$, LOCAL opciones$)

Retorna la acumulación de un campo$ numérico en un archivo$ de los registros con la clave$ indicada, y con opciones$.

PRINT FN%acum("FACENCAB","MONTO","HLS"+"200001","KNO[0] CND[REC.TIPO$=""FA""]")
> 8752336.98

Volver arriba

FN%fecha$: Formatea una fecha

fn%fecha$(LOCAL fecha$)

Retorna una variable que contiene una fecha válida end formato ddmmaaaa, formateada del modo dd/mm/aaaa.

PRINT FN%fecha$("24102025")
> 24/10/2025

Volver arriba

FN%fecinv$: Invierte una fecha

FN%fecinv$(LOCAL fecha$)

Retorna el valor enviado (ddmmaaaa) de forma invertida: aaaammaa.

PRINT FN%fecinv$("24102025")
> 20251024

Volver arriba

FN%fecha_letras$: Fecha en letras

FN%fecha_letras$(LOCAL fecha$)

Retorna la fecha enviada en letra, para ser usada por ejemplo en cartas.

PRINT FN%fecha_letras$("24102025")
> 24 de Octubre de 2025

Volver arriba

FN%find$: Busca un valor de un campo en un archivo

FN%find$(LOCAL archivo$, LOCAL campo$, LOCAL clave$)

Retorna el valor del campo$ contenido en el registro con llave primaria clave$ del *archivo$, sí no consigue la clave$ retorna un valor vacio.

PRINT FN%find$("CTLCIAS","CIA_NOM","HLS")
> H.L. Sistemas S.R.L.
PRINT FN%find$("NOMDESCR","NOMBRE","HLS"+"0003/002  ")
> MONICA GUADALUPE

Volver arriba

FN%mes$: Nombre de un mes

FN%mes$(LOCAL mes$)

Retorna el nombre en letras del mes$ en números.

PRINT FN%mes$("10")
> Octubre

Volver arriba

FN%mescrito$: Monto escrito

FN%mescrito$(LOCAL monto)

Retorna el número enviado en letras.

PRINT FN%mescrito$(24528.12)
> VEINTICUATRO MIL QUINIENTOS VEINTIOCHO CON 12 CENTIMOS

Volver arriba

FN%no_todo: Que la explique JL

FN%no_todo(LOCAL num_ctl, LOCAL cond$, LOCAL botones$, LOCAL archivo$, LOCAL posic$)

Que me la explique JL.

FN%no_todo(listbox.ctl, "","REC.TIPO=""75""","INVGRUPO","")

Volver arriba

FN%ope_valido: Operador válido para una función específica

FN%ope_valido(LOCAL funcion$)

Retorna verdadero (1) sí el usuario actual (%base_login$), esta autorizado en la funcion$ específica (CTLFNOPE), de lo contrario retorna falso (0)

PRINT FN%ope_valido("VER_SALDOS")
> 1

Volver arriba

FN%pos: Busca un texto en otro texto

FN%pos(LOCAL texto1$, LOCAL texto2$)

Compara texto1$ dentro de texto2$ sin importar que contengan acentos, mayúsculas y/o minúsculas. Retorna verdadero (1) sí son iguales, falso (0) si son diferentes y -1 si texto1$ esta vacío.

PRINT fn%pos("ÁéÍóÚ","aeIOu")
> 1

Volver arriba

FN%precision: Ajustar precisión a un monto

FN%precision(LOCAL valor, LOCAL decimales)

Retorna el valor ajustado a la precision de decimales.

PRINT FN%precision(249.02193822,3)
> 249.022

Volver arriba

FN%tabla: Busca un valor en una variable

FN%tabla(LOCAL valor$, LOCAL tabla$, LOCAL longitud)

Retorna verdadero (1) sí el elemento valor$ se encuentra contenido dentro de la variable tabla$, haciendo la busqueda del elemento con la longitud indicada, de lo contrario retorna falso (0) .

tabla$="01020304"
PRINT FN%tabla$("10",tabla$,2)
> 0
PRINT FN%tabla$("02",tabla$,2)
> 1

Volver arriba

FN%tbl$: Traduce acentos en un texto

FN%tbl$(LOCAL lp, LOCAL lin$)

Traduce acentos en una cadena lin$ para la impresión directa por el canal lp.

OPEN(unt)"*windev*"
PRINT (lfo)fn%tbl$(lfo,"ÁéÍóÚ")
PRINT fn%tbl$(lfo,"ÁéÍóÚ")
>  ‚¡¢£
CLOSE(lfo)

Volver arriba

Rutinas Públicas (RP_XXXXX):

Definición de lo que son las rutinas públicas.

Volver arriba

RP_CATAL

Catálogo de la Aplicación

CALL "RP_CATAL",%BASE_CIA$,...

Volver arriba

- RP_CATAL;APLICACIONES

Tabla de Aplicaciones

CALL "RP_CATAL;APLICACIONES",TAB_APL$

Volver arriba

RP_FECHA

- RP_FECHA;AJUSTAR: Ajustar una fecha

Ajusta una fecha, en días, meses y/o años, retornando la fecha resultante.

CALL "RP_FECHA;AJUSTAR","01/10/2025",10,0,0,""
> 11102025
CALL "RP_FECHA;AJUSTAR","01/10/2025",0,0,0,"-U"
> 31102025
CALL "RP_FECHA;AJUSTAR","01/10/2025",0,1,0,"-H"
> 01112025

Volver arriba

Rutinas Utilitarias (RU_XXXXX):

Definición de lo que son las rutinas utilitarias.

Volver arriba

RU_COPY

Copia de registros.

Anteriormente: HLCOPY

CALL "RU_COPY"

Volver arriba